﻿Imports System.Data.OleDb
Imports System.Text


Public Class tipo_armaDAO
    Private objConn As New conexao
    Private sql As New StringBuilder


    Public Function getTipoArmas() As DataTable

        sql.Clear()
        sql.Append("SELECT *FROM TIPO_ARMA ORDER BY DESC_TIPO")
        Dim DS As New DataSet
        Try
            Dim comando As New OleDbCommand(sql.ToString, objConn.abreConexao(True))
            Dim adaptador As New OleDbDataAdapter(comando)
            adaptador.Fill(DS, "TIPO_ARMA")
        Catch ex As Exception
            Throw ex
        End Try
        Return DS.Tables("TIPO_ARMA")
    End Function

End Class
